home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / LEDVB25.ZIP / VB.ZIP / LEDMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-17  |  2.2 KB  |  86 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "LED Custom Control"
  4.    ClientHeight    =   5655
  5.    ClientLeft      =   1290
  6.    ClientTop       =   2610
  7.    ClientWidth     =   8835
  8.    Height          =   6345
  9.    Icon            =   LEDMDI.FRX:0000
  10.    Left            =   1230
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1980
  13.    Width           =   8955
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demo"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&Properties"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Styles/Bitmaps"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo 
  27.          Caption         =   "-"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo 
  31.          Caption         =   "&Examples"
  32.          Index           =   3
  33.       End
  34.    End
  35.    Begin Menu mnu 
  36.       Caption         =   "&Help"
  37.       Index           =   1
  38.       Begin Menu help 
  39.          Caption         =   "About LED"
  40.          Index           =   0
  41.       End
  42.       Begin Menu help 
  43.          Caption         =   "LED Control"
  44.          Index           =   1
  45.       End
  46.       Begin Menu help 
  47.          Caption         =   "All GMS Controls"
  48.          Index           =   2
  49.       End
  50.    End
  51.    Begin Menu mnu 
  52.       Caption         =   "&Order"
  53.       Index           =   2
  54.    End
  55.    Begin Menu mnu 
  56.       Caption         =   "E&xit"
  57.       Index           =   3
  58.    End
  59. Sub demo_Click (index As Integer)
  60.     Select Case index
  61.         Case 0
  62.             ledcontrol.Show
  63.         Case 1
  64.             ledstyles.Show
  65.         Case 3
  66.             Examples.Show
  67.     End Select
  68. End Sub
  69. Sub help_Click (index As Integer)
  70.     Select Case index
  71.         Case 0 'about
  72.             About.Show
  73.         Case 1 'control
  74.             i = Shell("WINHELP led.hlp", 1)
  75.         Case 2 'library
  76.             i = Shell("WINHELP instrmlb.hlp", 1)
  77.     End Select
  78. End Sub
  79. Sub MDIForm_Load ()
  80.     About.Show
  81. End Sub
  82. Sub mnu_Click (index As Integer)
  83.     If index = 2 Then i = Shell("WINHELP order.hlp", 1)
  84.     If index = 3 Then End
  85. End Sub
  86.